home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / Src / Ch17 / Trans4.ray < prev    next >
Text File  |  1999-07-06  |  1KB  |  51 lines
  1. Viewpoint(1000, 0.3, -0.3)
  2. AmbientLight(128, 128, 128)
  3. LightSource(-1000, -500, 1000, 255, 255, 255)
  4. LightSource(1000, -500, 1000, 255, 255, 255)
  5. Sphere( 50, 50, 0, 15,
  6.   0.1, 0.1, 0.1, ' Ambient.
  7.   0.1, 0.1, 0.1, ' Diffuse.
  8.   20, 0.35,      ' Specular.
  9.   0, 0, 0,       ' Reflected.
  10.   3, 1, 1.4,     ' TransN, n1, n2.
  11.   0.9, 0.9, 0.9  ' Tansmission.
  12. )
  13. Sphere( 50, 0, 0, -50,
  14.   0.7, 0.1, 0.1, ' Ambient.
  15.   0.7, 0.1, 0.1, ' Diffuse.
  16.   20, 0.35,      ' Specular.
  17.   0, 0, 0,       ' Reflected.
  18.   3, 1, 1.4,     ' TransN, n1, n2.
  19.   0, 0, 0        ' Tansmission.
  20. )
  21. Sphere( 50, -100, 0, -50,
  22.   0.1, 0.7, 0.1, ' Ambient.
  23.   0.1, 0.7, 0.1, ' Diffuse.
  24.   20, 0.35,      ' Specular.
  25.   0, 0, 0,       ' Reflected.
  26.   3, 1, 1.4,     ' TransN, n1, n2.
  27.   0, 0, 0        ' Tansmission.
  28. )
  29. Sphere( 50, -200, 0, -50,
  30.   0.1, 0.1, 0.7, ' Ambient.
  31.   0.1, 0.1, 0.7, ' Diffuse.
  32.   20, 0.35,      ' Specular.
  33.   0, 0, 0,       ' Reflected.
  34.   3, 1, 1.4,     ' TransN, n1, n2.
  35.   0, 0, 0        ' Tansmission.
  36. )
  37. Polygon(4,          ' Number of points
  38.   -300, 50, -300,   ' Point 1
  39.    300, 50, -300,   ' Point 2
  40.    300, 50,  300,   ' Point 3
  41.   -300, 50,  300,   ' Point 4
  42.   0.3, 0.4, 0.5,    ' Ambient
  43.   0.3, 0.4, 0.5,    ' Diffuse
  44.   20, 0.35,         ' Specular
  45.   0.9, 0.9, 0.9,    ' Reflected
  46.   0, 1, 1,          ' TransN, n1, n2
  47.   0, 0, 0           ' Transmitted
  48. )
  49.  
  50.  
  51.